oo::class create PopupArgvDialog {
    superclass PopupDialog
    variable Path PopUpFlag OKVal CancelVal ifDestroy

    method createPopup {msg} {
        next $msg

        frame $Path.argv
        ttk::label $Path.argv.lb -text "Argv"
        ttk::entry $Path.argv.ent

        pack $Path.argv.lb $Path.argv.ent -side left -pady 3 -padx 1
        pack $Path.argv -side top
    }

    method turnOnFlag {} {
        set PopUpFlag [$Path.argv.ent get]
    }

    method turnOffFlag {} {
        set PopUpFlag {}
    }
}